﻿Module mdl_MoveStdBakeService

#Region "MoveStdBakeService_Execute"
    Public Function MoveStdBakeService_Execute(ByVal inParam As InSiteWebService.InMoveStdBake, ByVal client As String) As InSiteWebService.OutMoveStdBake

        Dim srvClient As New InSiteWebService.InSiteServiceSoapClient   'サービスクライアント
        Dim outParam As New InSiteWebService.OutMoveStdBake            '全サービス共通の出力用ヘッダ

        inParam.Header = New InSiteWebService.InHeader                  '全サービス共通の入力用ヘッダ
        inParam.Header.User = INSITE_USER                               'ログインユーザ
        inParam.Header.Password = PASSWORD                              'ログインパスワード
        inParam.Header.Client = client                                  'クライアントアプリケーション

        Try
            outParam = srvClient.MoveStdBakeService_Execute(inParam)     'ロット完工
            Return outParam

        Catch ex As Exception
            outParam.Header = New InSiteWebService.OutHeader
            outParam.Header.Status = STS_ERROR
            outParam.Header.ResultMessage = New String() {ex.Message & " (" & ex.InnerException.Message & ")"}
            outParam.Header.ResultCode = New String() {"9999"}
            outParam.Header.ResultLot = New String() {"ALL"}
            Return outParam

        Finally
            srvClient = Nothing
            outParam = Nothing

        End Try

    End Function
#End Region
    'ADD 苗 2018/4/12 BEGIN
#Region "MoveStdBakeService_Check"
    Public Function MoveStdBakeService_Check(ByVal inParam As InSiteWebService.InMoveStdBake, ByVal client As String) As InSiteWebService.OutMoveStdBake

        Dim srvClient As New InSiteWebService.InSiteServiceSoapClient   'サービスクライアント
        Dim outParam As New InSiteWebService.OutMoveStdBake            '全サービス共通の出力用ヘッダ

        inParam.Header = New InSiteWebService.InHeader                  '全サービス共通の入力用ヘッダ
        inParam.Header.User = INSITE_USER                               'ログインユーザ
        inParam.Header.Password = PASSWORD                              'ログインパスワード
        inParam.Header.Client = client                                  'クライアントアプリケーション

        Try
            outParam = srvClient.MoveStdBakeService_Check(inParam)     'ロット完工チェック
            Return outParam

        Catch ex As Exception
            outParam.Header = New InSiteWebService.OutHeader
            outParam.Header.Status = STS_ERROR
            outParam.Header.ResultMessage = New String() {ex.Message & " (" & ex.InnerException.Message & ")"}
            outParam.Header.ResultCode = New String() {"9999"}
            outParam.Header.ResultLot = New String() {"ALL"}
            Return outParam

        Finally
            srvClient = Nothing
            outParam = Nothing

        End Try

    End Function
#End Region
    'ADD 苗 2018/4/12 END
End Module
